home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr48
/
vdl020d.zip
/
VEQUIP.DOC
< prev
next >
Wrap
Text File
|
1993-04-14
|
9KB
|
497 lines
{
════════════════════════════════════════════════════════════════════════════
Visionix Equipment Determination Unit (VEQUIP)
Copyright 1991,92,93 Visionix
ALL RIGHTS RESERVED
────────────────────────────────────────────────────────────────────────────
Revision history in reverse chronological order:
Initials Date Comment
──────── ──────── ────────────────────────────────────────────────────────
lpg 03/15/93 Added Source Decumentation
mep 02/11/93 Cleaned up code for beta release
jrt 02/08/93 Sync with beta 0.12 release
jrt 12/15/92 Updated to work in protected mode for BP 7.0
jrt 12/07/92 Sync with beta 0.11 release
lpg 11/30/92 Added New functions & Merged Beta 008 - 009
jrt 11/25/92 brought GetConsoleInfo over from VCRT
added Primary/AlternateConsoleIsColor functions
lpg 11/24/92 Slightly modified (ASM)
jrt 11/21/92 Sync with beta 0.08
jrt 11/18/92 First logged revision.
────────────────────────────────────────────────────────────────────────────
Notes:
add funcs to report what I/O port serial ports are at
add funcs to report what i/o port par ports are at
check for presence of weitek coprocessor
load SI with 0 before all INT $11 calls
════════════════════════════════════════════════════════════════════════════
}
Unit VEquip;
Uses
DOS;
{────────────────────────────────────────────────────────────────────────────}
Const
cCardNone = $00;
cCardVGA = $01;
cCardEGA = $02;
cCardMDA = $03;
cCardHGC = $04;
cCardCGA = $05;
cMonitorNone = $00;
cMonitorMono = $01;
cMonitorColor = $02;
cMonitorEGAHiRes = $03;
cMonitorAnaMono = $04;
cMonitorAnaColor = $05;
Type
TConsole = RECORD
DisplayCard : WORD;
Monitor : WORD;
END;
PConsole = ^TConsole;
{----}
TConsoleInfo = RECORD
Primary : TConsole;
Alternate : TConsole;
END;
PConsoleInfo = ^TConsoleInfo;
{────────────────────────────────────────────────────────────────────────────}
Function BIOSName : BYTE;
Function BIOSDate : STRING;
Function FloppyInstalled : BOOLEAN;
Function MathChipExist : BOOLEAN;
Function PointingDeviceExists : BOOLEAN;
Procedure GetConsoleInfo( CI : PConsoleInfo );
Function PrimaryDisplayCard : WORD;
Function AlternateDisplayCard : WORD;
Function NumFloppies : INTEGER;
Function NumRS232Cards : INTEGER;
Function GamePortExists : BOOLEAN;
Function SerialPrinterExists : BOOLEAN; {PCJr Only}
Function InternalModemExists : BOOLEAN; {Non-PCjr}
Function NumPrinters : INTEGER;
{────────────────────────────────────────────────────────────────────────────}
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function BiosName : BYTE;
[PARAMETERS]
(None)
[RETURNS]
The BIOS Name ID Byte
[DESCRIPTION]
Reads and Returns the System BIOS Name ID Byte. These are as follows:
...
...
...
...
{ gets the name of the motherboard bios }
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function BIOSDate : STRING;
[PARAMETERS]
(None)
[RETURNS]
The BIOS Date String
[DESCRIPTION]
Reads and Returns the BIOS Date String
{ gets the date of the motherboard bios }
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function FloppyInstalled : BOOLEAN;
[PARAMETERS]
(None)
[RETURNS]
Whether a Floppy Drive is Installed. (TRUE=Yes)
[DESCRIPTION]
Tests and Returns whether even a single Floppy Drive is Installed in
the system.
{ returns TRUE if floppy drive is installed }
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function MathChipExist : BOOLEAN;
[PARAMETERS]
(None)
[RETURNS]
Whether a Math Co-Processor Chip is Installed (TRUE=Yes)
[DESCRIPTION]
Tests and Returns whether a Math CoProcessor Chip is installed in the
system.
{ returns TRUE if Math Co-Processor exists }
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function PointingDeviceExists : BOOLEAN;
[PARAMETERS]
(None)
[RETURNS]
Whether a Pointing Device Exists (TRUE=Yes)
[DESCRIPTION]
Tests and Returns whether any type of Pointing Device is attached to
the system. This includes a Mouse, Light Pen, etc.
{ returns TRUE if a pointing device is present }
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Procedure GetConsoleInfo( CI : PConsoleInfo );
[PARAMETERS]
CI Pointer to Returned Console Information Structure
[RETURNS]
Function : None
(Ptr : [CI] Pointer to Returned Console Information Structure)
[DESCRIPTION]
{ gets info on primary and alternate display consoles }
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function PrimaryDisplayCard : WORD;
[PARAMETERS]
(None)
[RETURNS]
[DESCRIPTION]
{ returns the primary display card type (vga/ega/mda/hgc/cga) }
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function AlternateDisplayCard : WORD;
[PARAMETERS]
(None)
[RETURNS]
[DESCRIPTION]
{ returns the alternate display card type (vga/ega/mda/hgc/cga) }
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function NumFloppies : INTEGER;
[PARAMETERS]
(None)
[RETURNS]
The Number of Floppy Drives Attached
[DESCRIPTION]
Tests and Returns the Number of Floppy Drives Attached to the System.
{ returns the number of installed floppies }
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function NumRS232Cards : INTEGER;
[PARAMETERS]
(None)
[RETURNS]
The Number of RS-232 Cards Attached
[DESCRIPTION]
Attempts to Detect the Number of RS-232 Cards that are attached to the
system.
{ returns the number of RS-232 ports }
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function GamePortExists : BOOLEAN;
[PARAMETERS]
(None)
[RETURNS]
Whether a Game Port Exits (TRUE=Yes)
[DESCRIPTION]
Tests and Returns whether a Game Port Exists.
{ returns TRUE if a joystick port exists }
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function SerialPrinterExists : BOOLEAN;
[PARAMETERS]
(None)
[RETURNS]
Whether a Serial Printer Exists (TRUE=Yes)
[DESCRIPTION]
Attempts to Detect and Report whether a Serial Printer is attached to the
System and Active (ie. Turned On).
Test Valid for PCJr Systems Only.
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function InternalModemExists : BOOLEAN;
[PARAMETERS]
(None)
[RETURNS]
Whether an Internal Modem Exists (TRUE=Yes)
[DESCRIPTION]
Tests and Returns whether an Internal Modem Exists.
Test Valid only for Non-PCjr Systems.
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Function NumPrinters : INTEGER;
[PARAMETERS]
(None)
[RETURNS]
Number of Printers Attached
[DESCRIPTION]
Attempts to Detect and Report the Number of Printers Attached to the
System and Active (ie. Turned On).
{ returns number of LPT ports }
[SEE-ALSO]
[EXAMPLE]